#Alexander F. Gazmararian
#afg2@princeton.edu

library(tidyverse)

#load functions/themes
source("code/fun/book_theme.R")
source("code/fun/savefig.R")

#load data
g <- readRDS("data/NatQual_August22.rds")

# Create figure of govt commitment to climate finance for online appendix
plot.climfincommit <-
  g %>%
  ggplot() +
  geom_bar(aes(x=commitmentdeveloping,y=after_stat(prop),group=1)) +
  scale_y_continuous(labels = scales::percent, expand = c(0,0), limits = c(0,.65)) +
  labs(x = "", y = "") +
  book_theme
plot.climfincommit
savefig(plot.climfincommit, "si_climfin_commit", filepath = "figures/ch9/", height = 2)